﻿'Imports Infragistics.Win.UltraWinGrid
'Imports Infragistics.Win
'Imports Infragistics.Win.UltraWinGrid.UltraGridAction
'Public Class Form1
'    Dim KeyDownLst As ArrayList = New ArrayList
'    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'        'Me.Tbl_testTableAdapter.Fill(Me.Test4DataSet.tbl_test)
'        ''set giao diện
'        'Me.Tbl_testIUltraGrid.setGiaoDien()
'        ''không cho cột "ngay" xổ xuống
'        'Me.KeyDownLst.Add("ngay")
'        'Me.Tbl_testIUltraGrid.setCotKhongXoXuong(KeyDownLst)
'        ''bắt focus khi di chuyển tới cột "ghichu" qua IUltraGrid1 (bắt focus ngay cột đầu tiên)
'        'Me.Tbl_testIUltraGrid.setKeyDownUltraGridNhanFocus("ghichu", Me.IUltraGrid1)
'        ''nhớ phải xem phần giao diện cho tạo mới một dòng
'        'Me.IUltraGrid1.setGiaoDien()
'    End Sub

'    Private Sub UltraButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraButton1.Click
'        Me.Tbl_testIUltraGrid.setFocusCellUltraGrid(Me.IUltraGrid1)
'    End Sub


'    Private Sub Tbl_testIUltraGrid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Tbl_testIUltraGrid.KeyDown

'    End Sub
'End Class